FM Towns: Free Software Collection 9/FM Towns Free Software Collection 9.iso/t_os/tool/tpsc256/src/paltpack.c

C/C++ Source or Header | 1994-11-16 | 4.2 KB | 208 lines

/*
        TPSC256用 外部Shell

        パレットをソ－トする
        使っている色を前に､使っていない色を後ろにソ－トする

*/

#define EGBSIZE        1536    // EGB用ワ－クサイズ
#define MOSSIZE        4096    // マウス用ワ－クサイズ
#define BOOL        int        // 論理判断の型宣言
#define TRUE        1        // 真
#define FALSE        0        // 偽
#define MENUPAGE    0        // メニュ－ペ－ジ番号
#define DRAWPAGE    0        // 描画ペ－ジ番号
#define SCREEN        12        // 画面モ－ド
#define DRAWWIDE    640        // 処理画面横サイズ
#define DRAWHIDE    480        // 処理画面縦サイズ


#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <malloc.h>
#include <math.h>
#include <egb.h>
#include <mos.h>
#include <loader.h>            // コプロセス定義ファイル

char EGB_work[EGBSIZE];        // EGBワ－クエリア
char MOS_work[MOSSIZE];        // マウスワ－クエリア

BOOL flg[256];

void GetPaltte( pal_all )
char *pal_all;
{
    EGB_getPalette(DRAWPAGE,pal_all);
}

void SetPaltte( pal_all )
char *pal_all;
{
    EGB_palette(EGB_work,1,pal_all);
}

void GetBlock(x1,y1,x2,y2,p)
int x1,y1,x2,y2;
unsigned int p;
{
    struct {
        unsigned int    p ;
        short    dseg, x1, y1, x2, y2 ;
    } pgetput ;
    pgetput.p    = p ;
    pgetput.dseg = getds();
    pgetput.x1   = x1 ;        pgetput.y1   = y1 ;
    pgetput.x2   = x2 ;        pgetput.y2   = y2 ;
    EGB_getBlock(EGB_work,(char *)&pgetput);
}

void PutBlock( x1,y1,x2,y2,p )
int x1,y1,x2,y2;
unsigned int p;
{
    struct {
        unsigned int    p ;
        short    dseg, x1, y1, x2, y2 ;
    } pgetput ;
    pgetput.p    = p ;
    pgetput.dseg = getds();
    pgetput.x1   = x1 ;        pgetput.y1   = y1 ;
    pgetput.x2   = x2 ;        pgetput.y2   = y2 ;
    EGB_putBlock(EGB_work,0,(char *)&pgetput);
}

void Line(x1,y1,x2,y2)
int x1,y1,x2,y2;
{
struct {     unsigned short int n;
            short int x1,y1,x2,y2; } par;
    par.n = 2;
    par.x1 = x1; par.y1 = y1;
    par.x2 = x2; par.y2 = y2;
    EGB_connect(EGB_work,(char *)&par);
}

void ColorFind()
{
    int x,y;
    int col;
    char *buf;

    buf = malloc( DRAWWIDE );
    for(y=0;y<DRAWHIDE;y++) {
        GetBlock(0,y,DRAWWIDE-1,y,buf);
        EGB_writeMode(EGB_work,4);
        Line(0,y,DRAWWIDE-1,y);
        for(x=0;x<DRAWWIDE;x++) {
            col = buf[x];
            flg[col] = TRUE;
        }
        Line(0,y,DRAWWIDE-1,y);
        EGB_writeMode(EGB_work,0);
    }
    free( buf );
}

void PaltteSort()
{
    int ch,mx,my;
    int x,y;
    int i,j;
    int ary[256];
    int col;
    char *oldpalt,*newpalt;
    char *buf;

    ary[0] = 0;
    ary[255] = 255;
    j = 1;
    for(i=1;i<255;i++) {
        if( flg[i] == TRUE ) {
            ary[i] = j;
            j++;
        }
    }
    for(i=1;i<255;i++) {
        if( flg[i] != TRUE ) {
            ary[i] = j;
            j++;
        }
    }
    oldpalt= malloc( 256*8+4 );
    newpalt= malloc( 256*8+4 );
    GetPaltte(oldpalt);
    memcpy(newpalt,oldpalt,256*8+4);
    for(i=0;i<256;i++) {
        j = ary[i];
        newpalt[j*8  +4+4] = oldpalt[i*8  +4+4];
        newpalt[j*8+1+4+4] = oldpalt[i*8+1+4+4];
        newpalt[j*8+2+4+4] = oldpalt[i*8+2+4+4];
    }
    buf = (char *)malloc( DRAWWIDE*DRAWHIDE );
    if( buf == NULL ) {
        SetPaltte(newpalt);
        buf = (char *)malloc( DRAWWIDE );
        for(y=0;y<DRAWHIDE;y++) {
            MOS_rdpos(&ch,&mx,&my);
            if( ch != 0 ) break;
            GetBlock(0,y,DRAWWIDE-1,y,buf);
            for(x=0;x<DRAWWIDE;x++) {
                col = buf[x];
                buf[x] = ary[col];
            }
            PutBlock(0,y,DRAWWIDE-1,y,buf);
        }
    } else {
        GetBlock(0,0,DRAWWIDE-1,DRAWHIDE-1,buf);
        for(x=0;x<DRAWWIDE*DRAWHIDE;x++) {
            col = buf[x];
            buf[x] = ary[col];
        }
        SetPaltte(newpalt);
        PutBlock(0,0,DRAWWIDE-1,DRAWHIDE-1,buf);
    }
    free( oldpalt );
    free( newpalt );
    free( buf );
}

main()
{
    ADDRESS temp;
    int i,x,y;
    int page[2];

    pcl_get_dta(&temp);

    /* 画面･マウスの初期化 */
    EGB_getResolution(&page[0], &page[1]);
    if( page[0] != SCREEN ) goto quit;

    EGB_resolution(EGB_work,DRAWPAGE,page[0]|0x40);        // Page0 Init
    EGB_displayPage(EGB_work,0,1);                        // 1page view
    MOS_start(MOS_work,MOSSIZE);                        // マウス初期化
    MOS_resolution(DRAWPAGE,page[0]);

    EGB_writePage(EGB_work,DRAWPAGE);    // 描画ペ－ジを指定
    EGB_paintMode(EGB_work,0x22);        // ペイントモ－ドを指定
    EGB_color(EGB_work,0,255);            // ドットの色を指定
    EGB_writeMode(EGB_work,0);

    for(i=0;i<256;i++)
        flg[i] = FALSE;                // フラグの初期化

    /* 処理開始 */
    ColorFind();
    PaltteSort();

    /* 子プロセスの終了処理 */
    MOS_end();

quit:
    pcl_exit(0);
    return (0);
}